VB Sample Code for converting from parameter field values

Dim valueInfo As PEValueInfo
Dim info As PEParameterFieldInfo

info.StructSize = PE_SIZEOF_PARAMETER_FIELD_INFO
valueInfo.StructSize = PE_SIZEOF_VALUE_INFO
If PEGetNthParameterField(job, 0, info.ValueType, info.DefaultValueSet, info.CurrentValueSet, info.Name, info.Prompt, info.DefaultValue, info.CurrentValue) = 0 Then
        getError
Else
If (PEConvertPFInfoToVInfo(info.DefaultValue, info.valueType, valueInfo) = 0 Then
        getError
    Else
        'if parameter 0 was type...    Then value is now in...
        'Number                info.viNumber
        'Currency                info.viCurrency
        'Boolean                info.viBoolean
        'String                info.viString
        'Date                    info.viDate[0] = year
        '                    info.viData[1] = month
        '                    info.viDate[2] = day
        '
    End If
End If


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com